home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / e / yaec.lha / examples / gradient.e < prev    next >
Text File  |  2001-08-12  |  1KB  |  35 lines
  1. -> gradientslider in E!
  2.  
  3. MODULE 'intuition/intuition'
  4. MODULE 'intuition/gadgetclass'
  5. MODULE 'intuition/icclass'
  6. MODULE 'gadgets/gradientslider'
  7.  
  8. DEF w:PTR TO window, grad:PTR TO gadget, gradbase, class, val
  9.  
  10. PROC main()
  11.   IF w:=OpenWindowTagList(NIL,[WA_FLAGS,$E,WA_IDCMP,$268,WA_WIDTH,400,WA_HEIGHT,80,WA_TITLE,'Gradients in E!',0])
  12.     SetStdRast(w.rport)
  13.     IF gradbase:=OpenLibrary('gadgets/gradientslider.gadget',39)
  14.       IF grad:=NewObjectA(NIL,'gradientslider.gadget',[GA_TOP,20,GA_LEFT,20,GA_WIDTH,350,GA_HEIGHT,30,GA_ID,1,GRAD_PENARRAY,[0,7,-1]:INT,GRAD_KNOBPIXELS,20,0])
  15.         AddGList(w,grad,-1,-1,NIL)
  16.         RefreshGList(grad,w,NIL,-1)
  17.         WHILE (class:=WaitIMessage(w))<>IDCMP_CLOSEWINDOW
  18.           GetAttr(GRAD_CURVAL,grad,{val})
  19.           TextF(20,60,'gradient value = \z$\h[4]',val)
  20.         ENDWHILE
  21.         RemoveGList(w,grad,-1)
  22.         DisposeObject(grad)
  23.       ELSE
  24.         WriteF('Could not create GradientSlider!\n')
  25.       ENDIF
  26.       CloseLibrary(gradbase)
  27.     ELSE
  28.       WriteF('Could not open \"gradientslider.gadget\"\n')
  29.     ENDIF
  30.     CloseWindow(w)
  31.   ELSE
  32.     WriteF('No Window!\n')
  33.   ENDIF
  34. ENDPROC
  35.